use strict;
use warnings;

use GSEA::Pvalue::PvalueSearcher; 


my $DBfile = "fichier.csv";
my $width  = 350 ;
my $height = 630 ;
my $score  = 0.36 ;


my $Ntry = 3 ;
for( my $i = 0 ; $i < $Ntry ; $i++ )
{
	 $width  = int( rand() * 1000 ) ;
	 $height = int( rand() * 1000 ) ;
	 $score  = rand() ;
	 
	 
	 my $pvs = GSEA::Pvalue::PvalueSearcher->constrPvalueSearcher( $DBfile , $width , $height  , $score  ) ;
	 my $val = $pvs->compute() ;
	 
	 #if( ! $val )
	 #{
		print("width = $width  // height= $height // score = $score \t");
		
		system("pvalue $width $height $score 6 ");
		print("\nTable indique ==> $val (si '1' , on considere le pvalue==0) \n");
		print("\n\n");
	 #}
} 